R passing a function argument to ggplot